<%
id=request.QueryString("id")
if not isnumeric(id) then
id="0"
end if
Set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from 维修 where 编号="&id
set rs = conn.execute(sql)
if not rs.eof then
wCusType=rs("客户类别")
wName=rs("客户")
wLinkMan=rs("联系人")
wAdr=rs("地址")
wTel=rs("电话")
wType1=rs("物品类别")
wType2=rs("物品品牌")
wType3=rs("物品型号")
wWith=rs("随机附件")
wNum=rs("序列号")
wPork=rs("包裹单号")
wDes=rs("故障现象")
wRepair=rs("维修情况")
wRemark=rs("备注")
wTime=rs("预约时间")
end if
rs.close
set rs=nothing
%>
<%=SiteName%>-<%=wDes%>